home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / wb / czesc_4 / vark15 / utils p-z / vmailto.lha / vmailto / Vmailto next >
AmigaDOS Script File  |  1996-05-04  |  892b  |  33 lines
  1. .KEY TOADDRESS/A
  2. .BRA {
  3. .KET }
  4. ; set the script bit (protect +s) and call this from V
  5. ; with {path}:send-mail %h 
  6. ; Generate To: and Subject: headers
  7. ; 
  8. echo >T:V-Mailto.{$$} "To: {TOADDRESS}*NSubject: *N"
  9.  
  10. ; Replace UULIB:.SIG with the path to your signature file
  11.  
  12. type >>T:V-Mailto.{$$} UULIB:.SIG
  13.  
  14. ; Change all references to pubscreen=voyager to the name of your public
  15. ; screen on which Voyager is running.
  16.  
  17. ; Change the editor 'CED' if you want but make sure it doesn't auto detach
  18. ; from the calling process.
  19.  
  20. stack 10000
  21. CED -KEEPIO -pubscreen=Voyager T:V-Mailto.{$$}
  22.  
  23. requestchoice >env:send "Voyager Request" "Send the mail??" "YES" "NO" PUBSCREEN=Voyager
  24. if VAL $send EQ 0
  25.  requestchoice TITLE="" BODY="Message Cancelled" GADGETS="OK" PUBSCREEN=Voyager
  26. else
  27.  amitcp:bin/SENDMAIL <T:V-Mailto.{$$}
  28. endif
  29.  
  30. ; Clean up temporary files.
  31.  
  32. delete >NIL: T:V-Mailto.{$$}
  33. delete >nil: env:send